home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / SmallTalk / MappedCollection.st < prev    next >
Text File  |  1995-08-25  |  3KB  |  129 lines
  1. "======================================================================
  2. |
  3. |   MappedCollection Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         16 Mar 91      Class creation now separate statement.
  36. |
  37. | sbyrne     25 Apr 89      created.
  38. |
  39. "
  40.  
  41. Collection subclass: #MappedCollection
  42.        instanceVariableNames: 'domain map'
  43.        classVariableNames: ''
  44.        poolDictionaries: ''
  45.        category: nil
  46. !
  47.  
  48. MappedCollection comment: 
  49. 'I represent collections of objects that are indirectly indexed by names.
  50. There are really two collections involved: domain and a map.  The map maps
  51. between external names and indices into domain, which contains the
  52. real association.  In order to work properly, the domain and map objects must
  53. be instances of a subclass of SequenceableCollection or Dictionary. ' !
  54.  
  55. !MappedCollection class methodsFor: 'basic'!
  56.  
  57. collection: aCollection map: aMap
  58.     ^self new setCollection: aCollection andMap: aMap
  59. !
  60.  
  61. new
  62.     self error: 'new not available for MappedCollections; use collection:map:'
  63. !!
  64.  
  65.  
  66. !MappedCollection methodsFor: 'basic'!
  67.  
  68. at: key
  69.     ^domain at: (map at: key)
  70. !
  71.  
  72. at: key put: value
  73.     ^domain at: (map at: key) put: value
  74. !
  75.  
  76. contents
  77.     | contents |
  78.     contents _ Bag new.
  79.     map do: [ :domainKey | contents add: domain at: domainKey ].
  80.     ^contents
  81. !
  82.  
  83. size
  84.     ^domain size
  85. !
  86.  
  87. add: anObject
  88.     self shouldNotImplement
  89. !
  90.  
  91. contents
  92.     | aBag |
  93.     aBag _ Bag new.
  94.     map do: [ :value | aBag add: (domain at: value) ].
  95.     ^aBag
  96. !
  97.  
  98. do: aBlock
  99.     map do: [ :value | aBlock value: (domain at: value) ]
  100. !
  101.  
  102. collect: aBlock
  103.     | aStream |
  104.     aStream _ WriteStream on: (self species new: self size).
  105.     self do: [ :value | aStream nextPut: (aBlock value: value) ].
  106.     ^aStream contents
  107. !
  108.  
  109. select: aBlock
  110.     | aStream |
  111.     aStream _ WriteStream on: (self species new: self size).
  112.     self do: [ :value | (aBlock value: value) ifTrue:
  113.                 [ aStream nextPut: value ] ].
  114.     ^aStream contents
  115. !!
  116.  
  117.  
  118.  
  119. !MappedCollection methodsFor: 'private'!
  120.  
  121. setCollection: aCollection andMap: aMap
  122.     domain _ aCollection.
  123.     map _ aMap
  124. !
  125.  
  126. species
  127.     ^domain species
  128. !!
  129.